home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 30
/
030.d81
/
modem machine
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
87 lines
100 poke251,.
110 poke53281,16:poke53280,16:printchr$(14):mn$="1"
120 print"[147][155] [205]odem [193]nswer [205]achine 1985"
130 print" [150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
140 print" [154] [194]y: [196]on & [196]arryn [199]raham":print"[155] [205]ail ->";peek(251)
150 print" [208]lace your '[212]-[196]' switch to '[196]' and hit [[210]eturn] to enter ";
160 print"[193]nswer mode- ":print" [[198]1] to write message"
165 print" [[198]3] to [210]ead [205]essages"
170 print" [[198]5] to print messages"
175 print" [[209]] to quit"
180 getzx$:ifzx$=""then180
185 ifzx$=chr$(13)then230
190 ifzx$="[133]"then700
195 ifzx$="[134]"andpeek(251)=.thenprint"[147][206]o [205]essages on file.":fora=1to1500:next
196 ifzx$="[134]"andpeek(251)=.then120
200 ifzx$="[134]"andpeek(251)then640
210 ifzx$="[135]"then750
220 ifzx$<>"q"andzx$<>"[209]"then180
222 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
224 print"[147]";:ifer<>63thenend
226 load"hello connect",8
230 open5,2,2,chr$(6)
240 print"[147][155] [205]odem [193]nswer [205]achine 1985"
250 print" [150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
260 print" [154] [194]y: [196]on & [196]arryn [199]raham":print"[154][205]ail -->";peek(251)
270 print"[150] [211]ystem [215]aiting for a [195]aller..."
280 poke56579,38
290 wait 56577,8,8
300 poke56577,peek(56577)or32
310 print" [195]aller [193]ttempting to [195]onnect"
320 wait 56577,16,24
330 print"[147][155][195]arrier [207]nline... waiting for [[195][210]]"
340 fori=1to2000:next:m$=" [195]hoose [200]alf [196]uplex-- [200]it [[210]eturn]":gosub740
350 ct=ct+1
360 get#5,a$:ifa$<>chr$(13)thenifct<2000then350
370 ifa$=chr$(13)thenm$="[205]odem [193]nswer [205]achine.":gosub740:goto400
380 print"time is up, nobody was there
390 [151]56577,0:[129]i[178]1[164]5000:[130]:[137]240
400 m$[178]"----------------------------":[141]740:n$[178]"(NULL)our (NULL)ame ->":[141]840
410 [132]5,na$
420 m$[178]"(NULL)ou are "[170]na$[170]" (NULL)ight? (y/n)":[141]740
430 [161]#5,zx$:[139]zx$[178][199](89)[167]460
440 [139]zx$[178][199](78)[167] na$[178]"":[137]400
450 [137]430
460 [153]"(NULL)nline ->";na$:m$[178][199](13)[170][199](13)[170][199](13)
470 m$[178]"-- (NULL)tandby for (NULL)ysop's (NULL)essage --":[141]740
480 [159]8,8,8,"0:sysop msg,s,r"
490 [161]#8,a$:[139]st[179][177]64[167][152]5,a$;:[153]a$;:[137]490
500 m$[178][199](13)[170]"-- valnd of (NULL)essage --":[141]740:[160]8
510 m$[178][199](13)[170][199](13)[170][199](13):[141]740
520 [137]550
530 m$[178][199](13)[170][199](13)[170]"(NULL)hanks for calling...":[141]740
540 [151]56577,0:[129]i[178]1[164]5000:[130]:[137]240
550 m$[178]"<-- (NULL)essage for (NULL)ysop -->":mn$[178][196]([194](251)):[141]740
560 m$[178]" (NULL)ype '^' to end...":[141]740
570 [159]8,8,8,"0:mail "[170]mn$[170]",s,w"
580 [152]8,na$[170][199](13)
590 [161]#5,a$:[139]a$[178]""[167]590
600 [139]a$[179][177]"^"[167][153]a$;:[152]8,a$;:[137]590
610 [152]8
620 [152]5,"(NULL)aving":[160]8:m$[178]"(NULL)hanks for your comments."
625 [151]251,[194](251)[170]1
630 [141]740:[137]530
640 [153]"load(NULL)ail number to read...>";:[133]cn:mn$[178][196](cn)
650 [159]8,8,8,"0:mail "[170]mn$[170]",s,r"
660 [161]#8,a$:[139]st[179][177]64[167][153]a$;:[137]660
670 [160]8:[153]" left$it (NULL)pace."
680 [161]zx$:[139]zx$[179][177]" "[167]680
690 [137]120
700 [153]"load peekegin (NULL)ow.":[153]" left$it '^' to end..."
710 [159]8,8,8,"0:sysop msg,s,w"
720 [161]a$:[139]a$[179][177]"^"[167][153]a$;:[152]8,a$;:[137]720
730 [152]8:[160]8:[137]120
740 [152]5,m$:[153]m$:[142]
750 [159]15,4,15:[160]15:[139]st[178].[167]760
752 [153]"loaddefvalrror: (NULL)rinter (NULL)ot (NULL)nline."
755 [129]a[178]1[164]1500:[130]:[137]120
760 [153]"loaddef (NULL)rint (NULL)ail to (NULL)rinter."
770 [153]"cont valnter (NULL)ail# to print ->";:[133]e:es$[178][196](e)
780 [139]e[177][194](251)[167]760
790 [159]4,4,7:[159]8,8,8,"0:mail "[170]es$[170]",s,r":[152]4,[199](17)
800 [161]#8,a$:[139]st[179][177]64[167][152]4,a$;:[137]800
810 [160]8:[152]4:[160]4:[153]" left$it (NULL)pace."
820 [161]zx$:[139]zx$[179][177]" "[167]820
830 [137]120
840 [152]5,n$;:[153]n$;:[142]